tableau
tableau(formule,listvar)
Func
Local aa,bb,ii,var,mat,res,valexpr,form
formuleàform
If getType(form)="STR" Then
      inString(form,"ou")àaa
      While aa¹0
            left(form,aa)&"r"&mid(form,aa+2)àform
            inString(form,"ou")àaa
      EndWhile
      inString(form,"et")àaa
      While aa¹0
            left(form,aa-1)&"and"&mid(form,aa+2)àform
            inString(form,"et")àaa
      EndWhile
      inString(form,"non")àaa
      While aa¹0
            left(form,aa+1)&"t"&mid(form,aa+3)àform
            inString(form,"non")àaa
      EndWhile
      expr(form)àform
EndIf
dim(listvar)àii
binaire(ii)àmat
newMat(2^ii,1)àres
For bb,1,2^ii
      formàvalexpr
      For aa,1,ii
            valexpr|#(string(listvar[aa]))=mat[bb,aa]àvalexpr
      EndFor
      valexpràres[bb,1]
EndFor
convert(res)
EndFunc